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GRADE COMPILER 


DECUS Program Library Write-up DECUS No. 8-275 

ABSTRACT 

The "Grade Compiler" is designed to handle the individual grades of a class of students. It 
performs the functions of calculating individual averages from typed-in data, storing the final 
averages and the two-letter code names, typing in alphabetical or rank order all the code 
names and their corresponding averages, making individual deletions, typing individual averages 
on demand, calculating the class average, and deleting all the stored data. It will handle up to 
two hundred and seventy code names and averages in a basic 4K PDP-8 system. 

INSTRUCTIONS 

Loading and Starting 

Load the program with the BIN (binary) loader (DEC-08-LBAA-PM). Start it at location 0200. 
The Command Mode 

The program has two modes of operation: the command mode and the operating mode. In the 
command mode, the computer types an asterisk at the left margin, then waits for the operator 
to type a command character (see the table below). The command character specifies which 
function the program should perform when it enters operating mode. Once the operator types a 
command character, the program enters the operating mode, and performs the function specified. 

If the operator types an illegal command character (one not in the table), the computer will 

type a question mark, a carriage return, and a new asterisk. It will then wait for a new command 

character. 

Normally the computer returns to the command mode when it has completed the function. 

However, in a few cases, the operator must type "Control/C" (hold down the control key on 
the teletype while typing a“C") to return to the command mode. This should be done when the 
computer types a colon, then waits for input. 

Example: (Throughout this manual computer typeout will be underscored) 

* x ? 

1C 

NAME: (At this time, the operator typed a "Control/C" to return to command mode) 











Command Letter 

Name of Function 

Action Performed 

C 

Calculate 

Calculates individual averages 

L 

List 

Lists code names and averages 



in alphabetical order 

R 

Rank 

Lists code names and averages 


in rank order 

A 

Average 

Computes class average 

S 

Single delete 

Deletes individual code 
names and averages from memory 

W 

Write 

Types out individual averages 

D 

Delete 

Deletes all stored data 

COMMAND CHARACTERS 

AND CORRESPONDING FUNCTIONS 


7he Operating Mode 

The computer enters the operating mode after the operator specifies which function he wants 
performed by typing a command character. In this mode it performs the individual functions. 

The operator can order the computer to return to the command mode by typing a "Control/C " 
after the computer has typed a colon. 

Note: The program types a colon, then stops typing, to indicate it needs some informal ion before 
it can proceed. 

The Calculate Function (C) 

This function accepts data from the operator, computes individual averages, and stores the code 
names and final averages. 

The computer first types "NAME:", then waits for the operator to type a two character code name. 
This code name must conform to these rules: 

a) The code name must be a two character name (i.e. not one character and a space). 

b) The first character must be a letter (A-Z). 

c) The second character may be either a letter (A-Z), or a number (0-9). It must not be any 
other character. 

d) The code name needs no space after it; this is provided by the program. 

e) If one of these rules is broken, the computer will type a question mark, a carriage return, 
another colon, and will wait for the operator to try again. 

This code name is used in the LIST and RANK functions. 

The program will then type "OK" if the code name has not been used before. It will type 
"REDEFINITION" if it has been previously used. This h intended as a warning to the operator 
that he may have mistyped the code name. 
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The computer then types "COURSES:" and waits for the operator to type the number of courses. 

The program then types "F: . " The operator should then type in the numerical grade of the 
student's first full-credit course. The program will continue asking "F:. " When the operator 
has inputted all the full-credit course grades, he should type an "X. " 

N°t e: If the student's courses are a_M_full-credit courses, the operator should type "X" the first 
time the program asks "F:. " 

The computer then types "H:" and waits for the operator to type the grade of the student's first 
half" credit course. The computer will continue asking for ha If-credit course grades until it has 
asked for grades for all the courses. 

The computer will then type "WEIGHTING:. " At this point the operator should type the amount 
of weighting he wishes to add to the running total. (This may be zero.) 

The computer will then compute the student's average, will type it, store it in its file, and will 
return to the beginning of the cycle to ask "NAME:, " again. (The operator must type "Control/C" 
to return to command mode. 

All numerical inputs must follow these rules: 

a) All leading spaces, letters, and punctuation marks will be printed, but will otherwise be 
ignored. 

b) The typed in number may have any number of digits, it may be a decimal number, and it may 
be negative (shown by a preceding minus sign). Fractions must be typed as decimal numbers 
(e.g. "1/2" must be typed as".£'). 

c) The number must be terminated by a space, carriage return, letter, or punctuation mark, but 
not by a digit, an "E", or a period. 

This terminating character will be printed. (Spaces and carriage returns are recommended. 

Carriage returns should be used when nearing the ends of lines to avoid the pileup of subsequent 
letters at the righthand margin.) 

d) Mistakes in typing numerical data may be corrected by striking the "RUBOUT" key — this is 
printed as a backslash. This action will erase the entire number from memory, and will allow the 
operator to try again. 

EXAMPLES OF LEGAL NUMBERS: 

0 8.01 -100.9976 1 3 ABC$8A +2.5 

EXAMPLE OF AN ILLEGAL NUMBER: 

10E 


The following formula is used when computing individual averages: 













a) Full-credit courses are given extra credit by doubling them, adding this to the running total, 
then adding“one"to the total of courses, (i.e. full-credit courses are treated as though they are 

two courses.) 

b) Grades of half-credit courses are simply added to the running total. 

c) The weighting is added to the running total, then the total is divided by the number of 
courses. The result is corrected to the third decimal place. 

Example of Calculate Function: 

C 

NAME: ZA OK COURSES: 5 F: 3 F: 2.75 h_2.5 h_X H: 2.5 H±_ 3 

WEIGHTING: . 1 AVERAGE=2.76 

NAME: J8 OK COURSES: 6 F: 1.5 F: 2.5 h_2.75 F: 2.5 F: X H: 3 H: 2.5 

WEIGHTING: 0 AVERAGES. 4 

NAME: (User typed "Control/C" ) 

* 

The List Function (L) 

This function types out in alphabetical order the code names in the memory and their corresponding 
averages. It numbers them as it goes, and automatically computes and prints the class average at 
the end. It returns to the command mode when it has finished. 

Example: 

2_i 

1. J8=2.40 


2. ZA=2.76 
AVERAGE=2.58 


* 

The Rank Function (R) 


This function types out in rank order the code names and their corresponding averages, numbering 
them as it goes, automatically computing and typing the class average at the end, and returning 
to the command mode when it has finished. 
























looter The program does not take into consideration cases in which two students have the same 
tinal average. 

Example: 


1 R 

1. ZA=2.76 

2. J8=2.40 
AVERAGE=2.58 


The Average Function (A) 

This function computes and types the class average, then returns to the command mode. 

Example: 

1 A 

AVERAGE=2.58 

* 

The Single Delete Function (S) 

USed t0 delete ind 'V'dual code names from memory. The computer first types 
NAME:; the operator should then type in a two-character code name. The computer then 
eliminates this code name and the corresponding average from its file, and will ask "NAME:" 
again. The user must type "Control/C“to return to command mode. 

If the code name is illegal or if it does not exist in its files, the computer will type a question 
mar , a carriage return, and a colon. The user may then try again. 

Example: 

* S 

(The computer deletes this code name from memory.) 

(This code name did not exist in memory.) 

(User typed "Control/C. ") 

The Write Function (W) 

This function types averages which correspond with code names inputted by the user. The computer 


NAME: ZA 
NAME: QQ? 
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first types "NAME:;" the operator then types a code name. The computer then types the average 
and asks "NAME:" again. The user must type "Control/C" to return to the command mode. 

If the user types an illegal code name, or if it is not in memory, the computer will type a 
question mark, a carriage return, and another colon to allow the user to try again. 

Example: 

*_W 

NAME: JB=2.4 

NAME: (The user typed "Control/C. ") 


The Delete Function (D) 

This function deletes all information from the computer's file. It returns to the command mode 
upon completion. 

Example: 

* D 

* 

TECHNICAL INFORMATION 
Minimum Hardware Required 

A basic 4K PDP-8 family computer with teletype. 

Other Programs Needed 

Floating Point Package #2 (DEC-08-YQ2A-PB). The Floating Point Package should be loaded 
before the Grade Compiler. 

Storage Requirement 

The Grade Compiler uses locations 0000-1500; the Floating Point Package uses locations 5400- 
7577. The remaining locations are used to hold the files of code names and averages. 

Each code name requires one word of memory space, and each average requires three words. In 
addition, one extra word per name is needed for the Rank and List functions. The Grade Compiler 
accommodates at least two hundred and seventy code names and averages. 














Errors 




The program can detect only those typographical errors which break the rules — others are up to 
the user to detect. 

Internal errors can only be detected by noticing abnormal output by the computer. On the 
PDP-8/S the "Parity Error" light will glow when some kinds of internal error occur. 

BIBLIOGRAPHY 

The following manuals, written by the Digital Equipment Corporation, will be helpful in loadinq 
and using this program: * 

Floating P oint System Programming Manual (Digital 8-5-S). 

Binary Loader Manual (DEC-08-LBAA-D). 
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/GRADE COMPILER SA =0200 
/FINAL VERSION JUNE 3, 1970 


*0000 

0000 0000 

0001 0000 

0002 7777 

0003 1133 PREAD, 

0004 0671 PPR I NT, 

0005 7400 

0006 7200 

0007 5600 

*0020 

0020 0277 CQUEST, 

0021 0235 PCRLF, 

0022 0272 CCOLON, 

0023 0402 PINPUT, 

0024 0457 PS E ARC, 

0025 0240 CSPACE, 

0026 0000 
0027 0000 
0030 0000 COURSE, 
0031 0000 

0032 0000 

0033 0000 COUNTR, 
0034 0000 TEST, 

0035 1 777 PTABL2, 

0036 1115 PWRITE, 

0037 0177 

0040 0000 

0041 0000 

0042 0000 

0043 0000 

*62 

0062 0003 
0063 0000 
0064 0000 

0065 0000 TOTAL, 

0066 0001 
0067 2000 

0070 0000 MINI, 
0071 0077 MASK, 

0072 0200 P0200, 

0073 0403 X INPUT, 

0074 0330 PXCHEC, 

0075 0621 PCONTF, 

0076 7776 K0002, 

0077 0476 PCAL, 

0100 0203 PC, 

0101 0002 V, 

0102 0777 MASK2, 


READ 

PRINT 

7400 

7200 

5600 

0277 

CRLF 

0272 

INPUT 

SEARCH 

240 


0 ; 0 ; 0 


0 ; 0 ; 0 
0 

1777 

WRITE 


3 


0 ; 0 ; 0 


1 ; 2000 ; 0 
0077 

0200 

INPUT+1 

CHECKX 

CONTF 

7776 

CALCUL 

C 

2 

777 


/FLOATING POINT VARIABLES. 


/SET OUTPUT FIELD SIZE. 
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# 


0103 

0730 

PDECOD, 

DECODE 

0104 

0713 

PSHUFF, 

SHUFFL 

0105 

0000 

COMBIN, 

0 

0106 

0271 

NAME, 

PNAME 

0107 

0275 

CEQUAL, 

275 

0110 

3700 

K4200, 

3700 

0111 

7700 

K7700, 

7700 

0112 

2777 

PLACE, 

2777 

0113 

0000 

FRUSTR, 

0 

0114 

1101 


TAD V 

0115 

4406 


JMS 1 6 

0116 

5513 


JMP 1 FRUSTR 

0117 

0120 

0121 

0177 

0177 

0000 

HOLD, 

0 

0122 
0123 
0124 

7766 

2030 

4470 

CORREC, 

7766; 2030; 4470 

0125 

0747 

PMULT, 

MULT 

0126 

1402 

PAV, 

AV 

2000 

0000 

*2000 

0 

0200 

7300 

/START OF PROGRAM. 

*0200 

CLA CLL 

0201 

6032 


KCC 

0202 

6046 


TLS 

0203 

4235 

c. 

JMS CRLF 

0204 

1230 


TAD CAST 

0205 

4436 


JMS* 1 P WRITE 

0206 

4403 


JMS 1 PREAD 

0207 

7041 


CIA 

0210 

3034 


DC A TEST 

0211 

1243 


TAD PTABLE 

0212 

3010 


DCA 0010 

,0213 

1410 

LOOK, 

TAD 1 0010 

0214 

7450 


SNA 

0215 

5232 


JMP QUEST 

0216 

1034 


TAD TEST 

0217 

7640 


SZA CLA 

0220 

5213 


JMP LOOK 

0221 

1010 


TAD 0010 

0222 

1231 


TAD GAP 

0223 

3034 


DCA TEST 

0224 

4235 


JMS CRLF 

0225 

1434 


TAD 1 TEST 

0226 

3034 


DCA TEST 

0227 

5434 


JMP 1 TEST 


/TYPE CR/LF. 

/TYPE ASTERISK. 
/READ A CHARACTER. 


/GET NEXT WORD OF TABLE. 


/COMPARE CHARACTERS. 
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$23$ 

$252 

CAST, 

$252 

$231 

$$12 

GAP, 

12 

$232 

1$20 

QUEST, 

TAD CQUEST 

$233 

4436 


JMS 1 PWRITE 

$234 

5203 


JMP C 

$235 

0000 

CRLF, 

$ 

$236 

1267 


TAD CRETUR 

$237 

4436 

y 

JMS 1 PWRITE 

$24$ 

127$ 


TAD CLFEED 

$241 

4436 


JMS 1 PWRITE 

$242 

5635 


JMP 1 CRLF 

$243 

$243 

PTABLE, 

• 

$244 

$3$4 


$3$4 

$245 

$3$3 



$246 

$314 



$247 

$323 



$25$ 

$327 



$251 

$322 



$252 

$3$1 



$253 

$$$$ 



$254 

$$$$ 


0303; $314; 

$255 

$$$$ 


$256 

$742 


DELETE 

$257 

$476 


CALCUL 

$26$ 

1$$$ 


ALPH 

$261 

1331 


SINGLE 

$262 

1376 


WRITEX 

$263 

120$ 


RANK 

$264 

14$2 


AV 

$265 

$$$$ 


$; $ 

$266 

$$$$ 


$267 

$215 

CRETUR, 

$215 

$27$ 

$212 

CLFEED, 

$212 



/PAGE 2. 


$271 

$271 

PNAME, 

# 

$272 

16$1 



$273 

15$5 



$274 

724$ 


16$1; 1 505} 

$275 

$$0$ 


$276 

$276 

POK, 

• 

$277 

4$4$ 



$3$$ 

1713 



$3$1 

56$$ 


4$4$; 1713; 

$3$2 

$3$2 

PREUSE, 

• 

$3$3 

4$4$ 



$3$4 

22$5 



$3$5 

$4$5 



$3$6 

$611 



0307 

1611 




/ERROR SIGNAL SUBROUTINE. 

/CR/LF TYPE SUBROUTINE. 

/LOOK-UP TABLE FOR COMMANDS. 

$323; $327; 322; 3$1; $; $; $ 

/ADDRESSES OF COMMAND ROUTINES. 


724$; $ 

56$$ 
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#31# 2411 

#311 1716 

#312 ###0 

#313 #313 PC OURS, 

#314 4#4# 

#315 #317 

#316 2522 

#317 23#5 

#320 2372 

#321 #### 

#322 #322 
#323 4#1# 

#324 720# KS, 

#325 #325 

#326 4#06 

#327 72## KD, 

#33# #00# CHECKX, 
#331 4405 

#332 1#6# 

#333 764# 

#334 573# 

#335 7040 

#336 3#6# 

#337 5331 


4#4# ; 2205; 4#5; 611; 1611; 2411; 1716; # 


4#4#; 317; 2522; 23#5; 2372; # 
.; 4#1# ; 720# 


.; 4##6; 720# 

# 

JMS I 5 
TAD 6# 

SZA CLA 
JMP ICHECKX 
CMA 
DCA 6# 

JMP CHECKX+1 


*40# 

#4#0 7477 C7477, 

#4#1 7746 C7746, 

#4#2 ##0# INPUT, 
#4#3 44#3 

#4#4 3#34 

#4#5 1#34 

V #406 120# 

#4#7 751# 

#41# 525# 

#411 1201 

#412 7700 

#413 525# 

#414 1#34 

#415 #071 

#416 71#6 

#417 7##6 

#420 7##6 

#421 31#5 

#422 44#3 

#423 3#34 

#424 1#34 

#425 120# 

#426 751# 

#427 5237 


7477 

7746 

# /COMBINES INPUTTED LETTERS. 

JMS I PREAD 

DCA TEST 

TAD TEST 

TAD C7477 

SPA 

JMP ERROR 
TAD C7746 
SMA CLA 
JMP ERROR 
TAD TEST 
AND MASK 


CLL RTL; RTL; RTL 
DCA COMB IN 
JMS I PREAD 
DCA TEST 
TAD TEST 
TAD C7477 
SPA 

JMP NMTEST 
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0 430 

1201 


TAD C7746 

0431 

7700 


SMA CLA 

0432 

5250 


JMP ERROR 

0433 

1034 


TAD TEST 

0434 

0071 


AND MASK 

0435 

1105 


TAD COMBIN 

0436 

5602 


JMP1 INPUT 

0437 

7300 

NMTEST, 

CLA CLL 

0440 

1034 


TAD TEST 

0441 

1246 


TAD C7520 

0442 

7510 


SPA 

0443 

5250 


JMP ERROR 

0444 

1247 


TAD C7766 

0445 

5231 


JMP NMTEST-6 

0446 

7520 

C7520, 

7520 

0447 

7766 

C7766, 

7766 

0450 

7300 

ERROR, 

CLA CLL 

0451 

1020 


TAD CQUEST 

0452 

4436 


JMS 1 P WRITE 

0453 

4421 


JMS 1 PCRLF 

0454 

1022 


TAD CCOLON 

0455 

4436 


JMS 1 P WRITE 

0456 

5473 


JMP 1 XINPUT 

0457 

0000 

SEARCH, 

0 

0460 

7041 


CIA 

0461 

3113 


DCA FRUSTR 

0462 

1035 


TAD PTABL2 

0463 

3010 


DCA 0010 

0464 

1410 


TAD 1 0010 

0465 

7450 


SNA 

0466 

5657 


JMP 1 SEARCH 

0467 

1113 


TAD FRUSTR 

0470 

7650 


SNA CLA 

0471 

5273 


JMP .+2 

0472 

5264 


JMP SEARCH+5 

0473 

1113 


TAD FRUSTR 

0474 

5657 

JMP 1 SEARCH 
/ROUTINE FOR ACCEPTING \ 

0475 

0271 

PPNAME, 

PNAME 

0476 

1675 

CALCUL, 

TAD 1 PPNAME 

0477 

4404 


JMS 1 P PRINT 

0500 

4202 


JMS 1 INPUT 

0501 

3121 

CON, 

DCA HOLD 

0502 

1121 


TAD HOLD 

0503 

4257 


JMS SEARCH 

0504 

7640 


SZA CLA 

0505 

5313 


JMP .+6 


/ROUTINE FOR INDICATING ERROR. 


/SEARCHES TABLE FOR SPECIFIED VARIABLE. 


/CHECK TO SEE IF NAME ALREADY USED. 
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0506 

1716 


TAD 1 PPOK 

0507 

44/4 


JMS 1 PPRINT 

0510 

1717 


TAD 1 PPC OUR 

05\] 

44/4 


JMS 1 PPRINT 

05] 2 

5326 


JMP CONT 

05] 3 

1 720 


TAD 1 PPREUS 

05] 4 

44/4 


JMS 1 PPRINT 

05] 5 

531/ 


JMP .-5 

05] 6 

02 76 

PPOK, 

POK 

05] 7 

03] 3 

PPC OUR, 

PCOURS 

0520 

0302 

PPREUS, 

PREUSE 

052] 

0325 

PKD, 

KD 

0522 

0002 



0522 

2000 



0524 

0000 

K2, 

2; 2000; 0 

0525 

7450 

MX, 

-330 

0526 

4474 

CONT, 

JMS 1PXCHEC 

0527 

4407 


JMS 1 7 

0530 

6026 


FPUT COURSE 

053] 

6/31 


FPUT COUNTR 

0532 

//// 


FEXT 

0533 

3/63 



0534 

3064 



0535 

3065 


DCA TOTAL; D 

0536 

1721 

CONTD, 

TAD 1 PKD 

0537 

44/4 


JMS 1 PPRINT 

0540 

44/5 


JMS 1 5 

054] 

1/57 


TAD 57 

0542 

1325 


TAD MX 

0543 

764/ 


SZA CLA 

0544 

535/ 


JMP .+4 

0545 

7/4/ 


CMA 

0546 

3/6/ 


DCA 6/ 

0547 

5776 


JMP 1 PCONTX 

0550 

1/6/ 


TAD 6/ 

055] 

764/ 


SZA CLA 

0552 

5356 


JMP .+4 

,0553 

7/4/ 


CMA 

0554 

3/6/ 


DCA 6/ 

0555 

534/ 


JMP CONTD +2 

0556 

44/7 


JMS ! 7 

0557 

3322 


FMPY K2 

0560 

1/63 


FADD TOTAL 

056] 

6/63 


FPUT TOTAL 

0562 

5/26 


FGET COURSE 

0563 

1/66 


FADD MINI 

0564 

6/26 


FPUT COURSE 

0565 

5/31 


FGET COUNTR 

0566 

2066 


FSUB MINI 


/ENTER FLOATING POINT PACKAGE. 
/HOLD NUMBER OF COURSES. 


TOTAL +1; DCA TOTAL +2 
/THIS PART DOUBLES INPUTTED GRADES 
/'ONE' TO GRADE COUNTER TO PLACE MORE 
/WEIGHT ON FULL-CREDIT COURSES. 


/IF AN "X" GO TO HALF-CREDIT COURSE 


/IGNORE ILLEGAL PRECEDING CHARACTERS. 
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3b/ 

6031 


FPUT COUNTR 


570 

0000 


rEXT 


57 i 

,032 


•g c 0.1 ntk i f 


572 

•340 


SZA CLA 


5/3 

^336 


.IMP CONTD 


57A 

775 


_V4 i ,-H 


5/5 

05 16 


_C 


-’576 

750 1 

i CGNTX 

/TAGl i- 

ON! X 


600 

322 

■ 600 

PKS, 

K$ 


0001 

1500 

CON EX, 

TAD 1 PKS 


0002 

' 404 


.IMS 1 PPRINT 


750o 

,4/24. 


JMS 1 !XC H EC 


0504 

'•407 


JMS 1 7 

/ENTER FLOATING POiNT PACKAGE. 

0000 

■ 0o3 


FADDrOTAL 


0500 

60o3 


FPuT TOTAL 


50/ 

.031 


FGET COUNTR 


0610 

7,066 


FSUB MINI 


061 i 

<7031 


FPUT COUNTR 


,06! 2 

(■000 


r EXT 


,0613 

1032 


TAD COUNTR +1 


0614 

'340 


SZA CLA 


0615 

5201 


JMP CONTX 


0616 

1260 

cc. 

TAD PWT 


061 7 

->404 


JMS ! PPRINT 


05 '20 

4474 


JMS f PXCHEC 


062! 

4407 

CQNTF, 

JMS 1 7 

/ENTER FLOATING POiNT PACKAGE. 

0622 

!0b3 


FADDTOTAL 


0623 

4026 


FDIV COURSE 


0624 

0000 


FEXT 


0625 

1251 


TAD PTOTAL 


0626 

4404 


JMS * PPRINT 


0627 

1010 


TAD 10 


0630 

3034 


DC A TEST 


063) 

1434 


TAD i TEST 


0632 

7640 


SZA CLA 


0633 

5237 


JMP .+4 


0634 

1121 


TAD HOLD 


0635 

3434 


DCA i TEST 


0636 

3410 


DCA \ 10 


0637 

1034 


TAD TEST 


0640 

4525 


JMS 1 PMULT 


064 j 

3034 


DCA TEST 


0642 

4407 


JMS i 7 


0643 

6434 


FPUT 1 TEST 


0644 

1122 


FADD CORREC 


0646 

0000 


FEXT 
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$646 

4113 


JMS FRUSTR 

,0647 

4421 


JMS 1 PCRLF 

$65$ 

5477 


JMP 1 PCAL 

065 1 

$651 

PTOTAL, 


$652 

4$4$ 



$653 

$126 



$654 

$522 



$655 

$1$7 



$656 

$575 



$657 

$$$$ 


4$4$; 126; 522; 1$7; 575; $ 

$66$ 

$66$ 

PWT, 

• 

$661 

4$4$ 



$662 

2705 



$663 

11 07 



$664 

1$24 



$665 

1116 



$666 

$772 



$667 

$$$$ 


4$4$; 2705; 1107; 1024; 1116; 772; $ 



/ROUTINE FOR PRINTING STRINGS OF CHARACTERS. 

$67$ 

$$$$ 

P, 

$ 

$671 

$$$$ 

PRINT, 

$ 

$672 

3$11 


DCA 11 

$673 

1411 


TAD 1 11 

$674 

32 70 


DCA P 

$675 

12 70 


TAD P 

$676 

$111 


AND K77$$ 

$677 

745$ 


SNA 

0700 

5671 


JMP 1 PRINT 

070 1 

7112 



0702 

7$12 



0703 

7$12 


CLLRTR; RTR; RTR 

0704 

45$3 


JMS 1 PDECOD 

0705 

127$ 


TAD P 

0706 

$071 


AND MASK 

0707 

745$ 


SNA 

$71$ 

5671 


JMP 1 PRINT 

$711 

45$3 


JMS 1 PDECOD 

$712 

5273 


JMP PRINT+2 

$713 

$$$$ 

SHUFFL, 

$ /ROUTINE FOR TRAN 

$714 

1$35 


TAD PTABL2 

$715 

3$1$ 


DCA 1$ 

$716 

1112 


TAD PLACE 

$717 

3011 


DCA 11 

0720 

141$ 


TAD 1 1$ 

$721 

745$ 


SNA 

$722 

5713 


JMP 1 SHUFFL 

$723 

3411 


DCA 1 11 

$724 

5320 


JMP SHUFFL+5 
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0 725 

0040 

MASK!, 

40 

0726 

0100 

LETTER, 

100 

0727 

0200 

CHAR, 

200 

0730 

0000 

DECODE, 

0 

07 31 

3113 


DCA FRUSTR 

0732 

1113 


TAD FRUSTR 

0733 

0325 


AND MASK1 

0734 

7650 


SNA CLA 

0735 

1326 


TAD LETTER 

0736 

1327 


TAD CHAR 

0737 

1113 


TAD FRUSTR 

0740 

4436 


JMS 1 P WRITE 

0741 

5730 


JMP 1 DECODE 

0742 

1035 

DELETE, 

TAD PTABL2 

0743 

3010 


DCA 10 

0744 

3410 


DCA 1 10 

0745 

5500 


JMP 1 PC 

0746 

0000 

M, 

0 

0747 

0000 

MULT, 

0 

0750 

0102 


AND MASK2 

0751 

3346 


DCA M 

0752 

1346 



0753 

1346 



0754 

1346 


TAD M; TAD M, 

0755 

1110 


TAD K4200 

0756 

5747 


JMP 1 MULT 


/DECODES PACKED CHARACTERS 


/CLEARS TABLE2. 

/ROUTINE FOR CALCULATING LOCATIONS OF 

VALUES. 


TAD M 


/ROUTINE FOR PRINTING OUT IN ALPHABETICAL ORDER. 

*1000 


1000 

4504 

ALPH, 

JMS 

1 PSHUFF 

1001 

3411 


DCA 

1 11 

1002 

3031 




1003 

3032 




1004 

3033 


DCA 

COUNTR; 

1005 

1112 

ALPH1, 

TAD 

PLACE 

1006 

3012 


DCA 

12 

1007 

1412 


TAD 

1 12 

1010 

7450 


SNA 


1011 

5526 


JMP 

1 PAV 

1012 

3034 


DCA 

TEST 

1013 

1012 


TAD 

12 

1014 

3105 


DCA 

COMBIN 

1015 

1034 


TAD 

TEST 

1016 

7040 


CMA 

1017 

7650 


SNA 

CLA 

1020 

5207 


JMP 

ALPH1+2 


DCA COUNTR +1; DCACOUNTR+2 
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1021 1012 

1022 3011 

1023 1411 ALPH2, 

1024 7450 

1025 5242 

1026 7040 

1027 7450 

1030 5223 

1031 7001 

1032 1034 

1033 7710 

1034 5223 

1035 1011 

1036 3105 

1037 1505 

1040 3034 

1041 5223 

1042 7240 ALPH3, 

1043 3505 

1044 4246 

1045 5205 

1046 0000 ALPH4, 

1047 4407 

1050 5066 

1051 1031 

1052 6031 

1053 0000 

1054 4406 

1055 1310 

1056 4404 

1057 1034 
1060 0111 

1061 7112 

1062 7012 

1063 7012 

1064 4503 

1065 1034 

1066 0071 

1067 4503 

1070 1107 

1071 4436 

1072 1034 

1073 4424 

1074 7650 

1075 7402 

1076 1010 

1077 4525 

1100 3034 

1101 4407 


TAD 12 
DCA 11 
TAD I 11 
SNA 

JMP ALPH3 

CMA 

SNA 

JMP ALPH2 
IAC 

TAD TEST 
SPA CLA 
JMP ALPH2 
TAD 11 

DCA COMB IN 
TAD I COMBIN 
DCA TEST 
JMP ALPH2 
CLA CMA 
DCA I COMBIN 
JMS ALPH4 
JMP ALPH1 
0 

JMS I 7 
FGET MINI 
FADD COUNTR 

FPUT C£UNTR-FADD CORREC 

JMS 16 
TAD KP 
JMS I PPRINT 
TAD TEST 
AND K7700 


CLLRTR; RTR; RTR 
JMS I PDECOD 
TAD TEST 
and MASK 
JMS I PDECOD 
TAD CEQUAL 
JMS I PWRITE 
TAD TEST 
JMS I PSEARC 
SNA CLA 
HLT 
TAD 10 
JMS I PMULT 
DCA TEST 

JMS 1 7 /ENTER FLOATING POINT PACKAGE. 
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11/2 

5434 

FGET 1 TEST 

11/3 

1122 

FADD CORREC 

11/4 

0000 

FEXT 

11/5 

4113 

JMS FRUSTR 

11/6 

4421 

JMS 1 PCRLF 

11/7 

5646 

JMP 1 ALPH4 

111/ 

111/ 


1111 

564/ 

. ;564/; / 

1112 

0000 KP, 


/ROUTINE. 


PAGE 4. 


/TELETYPE KEYBOARD SERVICE ROUTINE. 


1113 

//// 

w. 

/ 

1114 

7525 

MPLUS, 

-253 

1115 

0000 

WRITE, 

/ 

1116 

3313 


DCA W 

1117 

1313 


TAD W 

1120 

1314 


TAD MPLUS 

1121 

765/ 


SNA CLA 

1122 

5712 


JMP 1 WRITE 

1123 

6/41 


TSF 

1124 

5323 


JMP .-1 

1125 

1313 


TAD W 

1126 

6/46 


TLS 

1127 

73// 


CLA CLL 

113/ 

5715 


JMP 1 WRITE 



/TELETYPE PRINTER SERVICE 

1131 

7575 

K, 

7575 

1132 

0000 

PR, 

/ 

1133 

0000 

READ, 

/ 

1134 

6/31 


KSF 

1135 

5334 


JMP .-1 

1136 

6/36 


KRB 

1137 

3332 


DCA PR 

114/ 

1332 


TAD PR 

1141 

1331 


TAD K 

1142 

765/ 


SNA CLA 

1143 

5472 


JMP 1 P/200 

1144 

1332 


TAD PR 

1145 

4315 


JMS WRITE 

1146 

1332 


TAD PR 

1147 

5733 


JMP 1 READ 


/DO NOT PRINT PLUS SIGNS. 


/CONTRO/C'S CAUSE RETURN TO COMMAND 


1 200 
1201 
1202 
1203 


45/4 

3411 

3/31 

3/32 


/ROUTINE FOR PRINTING OUT IN NUMERICAL RANK ORDER. 
* 120 / 

RANK, JMS I PSHUFF 

DCA I 11 
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1 204 

3033 


DCA COUNTR 

1205 

1112 

RANK1, 

TAD PLACE 

1206 

3012 


DCA 12 

1207 

1412 


TAD 1 12 

1210 

7450 


SNA 

1211 

5526 


JMP 1 PAV 

1212 

3034 


DCA TEST 

1213 

1012 


TAD 12 

1214 

3105 


DCA COMB IN 

1215 

1034 


TAD TEST 

1216 

7040 


CMA 

1217 

7650 


SNA CLA 

1220 

5207 


JMP RANK1+2 

1221 

1012 


TAD 12 

1222 

3011 


DCA 11 

1223 

1034 

RANK4, 

TAD TEST 

1224 

4424 


JMS 1 PSEARC 

1225 

7650 


SNA CLA 

1226 

7402 


HLT 

1227 

1010 


TAD 10 

1230 

4525 


JMS 1 PMULT 

1231 

3113 


DCA FRUSTR 

1232 

4407 


JMS 1 7 

1233 

5513 


FGET 1 FRUSTR 

1234 

6063 


FPUT TOTAL 

1235 

0000 


FEXT 

1236 

7300 

RANK2, 

CLA CLL 

1237 

1411 


TAD 1 11 

1240 

7450 


SNA 

1241 

5270 


JMP RANK3 

1242 

7040 


CMA 

1243 

7450 


SNA 

1244 

5236 


JMP RANK2 

1245 

7040 


CMA 

1246 

4424 


JMS 1 PSEARC 

1247 

7650 


SNA CLA 

1250 

7402 


HLT 

1251 

1010 


TAD 10 

1252 

4525 


JMS 1 PMULT 

1253 

3113 


DCA FRUSTR 

1254 

4407 


JMS 1 7 

1255 

5063 


FGET TOTAL 

1256 

2513 


FSUB 1 FRUSTR 

1257 

0000 


FEXT 

1260 

1045 


TAD 45 

1261 

7700 


SMA CLA 

1262 

5236 


JMP RANK2 

1263 

1011 


TAD 11 

1264 

3105 


DCA COMBIN 

1265 

1505 


TAD 1 COMBIN 


DCA COUNTR +1; 


DCA COUNTR +2 
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1266 

3/34 


DCA TEST 

1267 

5223 


JMP RANK4 

1270 

73// 

RANK3, 

CLA CLL 

1271 

7/4/ 


CMA 

1272 

35/5 


DCA 1 COMBIN 

1273 

4675 


JMS 1 PALPH4 

1274 

52/5 


JMP RANK1 

1275 

1/46 

PALPH4, 

ALPH4 


/PAGE 5. 

/ROUTINE FOR PRINTING SINGLE ITEM. 

/ASK 'NAME: 


1276 

15/6 

WRITEX, 

TAD 1 NAME 

1277 

44/4 


JMS 1 PPRINT 

13// 

4423 


JMS 1 PINPUT 

13/1 

4424 


JMS 1 PSEARC 

13/2 

765/ 


SNA CLA 

13/3 

4320 


JMS ERR 

13/4 

11/7 


TAD CEQUAL 

13/5 

4436 


JMS 1 P WRITE 

13/6 

1/1/ 


TAD 1/ 

13/7 

4525 


JMS 1 PMULT 

131/ 

3/34 


DCA TEST 

1311 

44/7 


JMS 1 7 

1312 

5434 


FGET 1 TEST 

1313 

1122 


FADD CORREC 

1314 

//// 


FEXT 

1315 

4113 


JMS FRUSTR 

1316 

4421 


JMS 1 PCRLF 

1317 

5276 


JMP WRITEX 

1320 

//// 

Ctl 

O' 

LU 

/ 

1321 

1/20 


TAD CQUEST 

1322 

4436 


JMS 1 P WRITE 

1323 

4421 


JMS 1 PCRLF 

1324 

133/ 


TAD M6 

1325 

1320 


TAD ERR 

1326 

3320 


DCA ERR 

1327 

5720 


JMP 1 ERR 

133/ 

7772 

M6, 

7772 


/ENTER FPP. 


/RECYCLE/ 


/ROUTINE FOR DELETING SINGLE ITEMS. 

/ASK 'NAME:'. 


1331 

15/6 SINGLE, 

TAD 1 NAME 

1332 

44/4 

JMS 1 PPRINT 

1333 

4423 

JMS 1 PINPUT 

1334 

4424 

JMS 1 PSEARC 

1335 

765/ 

SNA CLA 

1336 

432/ 

JMS ERR 

1337 

1/1/ 

TAD 1/ 

134/ 

3/11 

DCA 11 

1341 

7/4/ 

CMA 
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! 342 

wrf 

TAD 

10 

1343 
134-4 . 

MW 

Tpn 

DC A 
TAD 

1,0 

n 

(345 

7fyl 

'AC 


/ 346 

Am 

JMS 

! PMULT 

\347 

m 

DC A 

COMBIN 

1 36. 

At 

TAD 

11 

I3&) 

4525 

JMS 

! PMULT 

rjss 

3026 

DCA 

COURSE 

1363 

MU 

TAD 

1 n 

im 

?440 

SZA 


1365 

336 ( 

JMP 

.+4 

/a& 

3410 

DCA 

1 10 

«367 

442] 

JMS 

1 PCRLF 

1360 

5381 

JMP: 

SINGLE 

1361 

3410 

DCA 

1 10 

1362 

4407 

JMS 

1 7 

136J 

5S0S 

FGET 

1 COMBIN 

|36d 

643b 

FPUT 

! COURSE 

i%£ 

$560 

FEXT 

1366 

5344 

JMP SINGLE 


Mj&r 

)442_ 

*1400 

/ROUTINE 

PAV2, 

FOR AVERAGING WHOLE CLASS. 

AV2 

140] 

0651 

°z, 

PTOTAL 

\m 

m 

Av/ ; 

TAD PTABL2 

m 

3010 

DCA 10 

1404 

U|0 


TAD 1 10 

H0S 

7650 


SNA CLA 

f40b 



JMP 1 PC 

l¥7 



TAD 1 PZ 

J4fj0 

44& 


JMS 1 PPRINT 

1411 

1110 


TAD K4200 

[412 

310S 


DCA COMBIN 

!4l3 

3063 



14)4 

3064 



M/s 

3065 


DCA TOTAL; DCA TOTAL +t, DCA TOTAL +2 

14)6 

J026 



141? 




)420 

303# 


DCA COURSE; DCA COURSE tl, DCA COURSE +2 

[42J 



TAD PTABL2 

[422 

3010 


DCA 10 

1423 

!4[0 

AVI, 

TAD i 10 

1434 

76 & 


SNA CLA 

|4^ 

56$ 


JMP1PAV2 

w 

4407 


jiV.S 1 7 

1427 

5905 


FGFT ! COMBIN 

1430 

(jfai 


FADDTOTAL 


9063 


FPUTTOTAL 0 

{ fetT course ^ ’ • 

\AU 

502k 









1433 1,066 


FADD MINI 


1434 6026 


FPUT COURSE 


1435 0000 

1436 2105 


FEXT 


1437 2105 

1440 2105 


ISZ COMB IN; 

ISZ COMBIN; ISZ COMBIN 

1441 5651 


JMP1PAV1 


1442 4407 

AV2, 

JMS 1 7 


1443 5063 


FGET TOTAL 


1444 4026 


FDIV COURSE 


1445 1122 


FADD CORREC 


1446 0000 


FEXT 


1447 4113 


JMS FRUSTR 


1450 5500 


JMP 1 PC 


1451 1423 

PAV1, 

AVI 



/ALTERATIONS TO FLOATING POINT PACKAGE. 


*7157 



7157 5372 

*7172 

JMP RESTRT 

/ROUTINE FOR ECHOING RUBOUT WITH A 

7172 7300 

RESTRT, 

CLA CLL 

7173 1376 


TAD BCKSLS 

/BACK-SLASH. 

7174 4436 


JMS 1 PWRITE 


7175 5767 


JMP 1 7167 


7176 0334 

BCKSLS, 

*7345 

334 

/ALTERATIONS TO ACCOMMODATE ION. 

7345 4436 

JMS 1 PWRITE 

7346 5744 

*7144 

JMP 1 7344 


7144 4403 


JMS 1 PREAD 


7145 7000 


NOP 


7146 7000 


NOP 


7147 3057 


3057 


7150 1057 


1057 


7151 7000 


NOP 


7152 7000 


NOP 


AC 

0040 



ALPH 

1000 



ALPH1 

1005 



ALPH2 

1023 



ALPH3 

1042 



ALPH4 

1046 



AV 

1402 



AVI 

1423 



AV2 

1442 



BCKSLS 

7176 



C 

0203 



CALCUL 

0476 



CAST 

0230 
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* . * 


CC 0616 

COOL ON* Zfl%2 

CtQUAl i)\$7 

CHAR* 027 

CHtC jCX 03&f 

ClfCcO 0W 

C'OMBIW 0m 

COto 0601 

CO NT pb'Jb 

ccntd #m 

CCMtf 0621 

C-ON cy 060) 

tGRgeC 0122 

v COUKHQ 0031 

course i>0% 

C QUEST p020 

CmCtC 0267 

CRLF 0235 

CS?ACE 0025 

Cl All 0400 

C7520 0446 

C7746 0401 

Cl 166 0411 

DECODE 0730 

DELETE 0742 

ERR 1320 

SRROR 0450 

t’A fGC AT 1427 
^VSTfi 01H3 

C 6AP 0231 

HOLD 0] 2\ 

IN WT 0402 

< M3« 

hQ 0325 

KP 1I \0 

K5 0322 

m0 2 006 

K7 05>2Z 

UW 0U0 

011) 

If'TTfR 0726 

uM/c ^041 

LOGIC 0213 

M 0746 

MASK e^7t’ 

?vt AS < i 0725 

MAS <2 0102 

MIM 00<56 

MPLUS (U4- 

Ml/U 047 


U 








MX 

0525 

M6 

]330 

NAME 

0106 

NMTEST 

0437 

P 

0670 

PALPH4 

1275 

PAV 

0] 26 

PA VI 

1451 

PAV2 

1400 

PC 

0100 

PCAL 

0077 

PCONTF 

0075 

PCONTX 

0576 

PC OURS 

0313 

PCRLF 

0021 

PD EC OD 

0103 

PINPUT 

0023 

PKD 

0521 

PKS 

0600 

PLACE 

0112 

PMULT 

0125 

PNAME 

0271 

POINT1 

0042 

POINT2 

0043 

POINT3 

0000 

POINT4 

0000 

POK 

0276 

PPCOUR 

0517 

PPNAME 

0475 

PPOK 

0516 

PPREUS 

0520 

PPRINT 

0004 

PP1 

0117 

PP2 

0120 

PR 

1132 

PREAD 

0003 

PRETUR 

0037 

PREUSE 

0302 

PRINT 

0671 

PS E ARC 

0024 

PSHUFF 

0104 

PTABLE 

0243 

PTABL2 

0035 

PTOTAL 

0651 

PWRITE 

0036 

PWT 

0660 

PXCHEC 

0074 

PZ 

1401 

P0200 

0072 
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a 


LA FI 

AT J0U7 

t>A P2 

AT 01 70 

quest 

0232 

QA 0K 

1200 

K-V.'mKI 

1305 

«AWK2. 

1236 

»<ANK3 

1 270 

tfAWK4- 

1 223 

t?cAD 

1133 

kcSTRT 

. 7172 

lA RETURN AT J0ffc 

SEARCH 

0757 

SHI'TFL 

0713 

SWG IE 

1331 

SWTT2. 

(n r '4\0 
/•V-v w *- 

TEST 

0034 

TOTAL 

0063 •* 

V 

,01.01 

w 

1113 

WRITE 

1115 

WRITEX 

1276 

XINPUT 

0013 
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Governor Dummer Academy 

By fields Massachusetts 01922 

FOUNDED IN 17^3 


JUNG 3 !§/S 


VALLEAU WILKIE, JR. 
Headmaster 


June 3, 1971 


DECUS Program Librarian 

Digital Equipment Computer Users Society 

146 Main Street 

Maynard, Massachusetts 01754 


Dear Sir: 

Enclosed is a revised version 
Mark Linehan (DECUS #8-275). The 
made: 


of the Grade Compiler written by 
following corrections have been 


1. During the writing of the program, it was noticed that the 
fixed point output controller in floating point package 2 (DEC-08- 
YQ2A-PB) did not round properly. To remedy this, Linehan ad 
0 005 (CORREC) and then typed numbers to two decimal places. Thi. 
vear it was discovered that the output controller sometimes gets 
ambitious and tries to round, which, in combination with linehan- 
pStch, causes a roundoff error. To correct this I have set CORREC 
o 0, so that it has no effect, and have switched to using FPP i 
fDEC-08-YQ1A-PB) and a modified output controller (DECUS #»-44)• 
Location 55 has been set to 0 to suppress the automatic return/line 
feed feature in this controller, since it was not in the old con 
ler and the program types its own return/line feeds. 


2. I don't know what the original idea was, but the weighting 
is now divided by ten and then added to the final average. 

The output format has also been changed to four significant 
digits and three decimal places. 


Sincerely yours, 

Craig B. Laub 





:MFD 


DECUS NOTE: New binary tape offered as of 11/12/71 
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